home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1986 August / Ahoy_Magazine_86-08_1986_Double_L.d64 / Step On It (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1986-01-01  |  5.0 KB  |  115 lines
  1. 10 dimd$(14),a(39),b(1):d$(0)="":forx=1to14:d$(x)=d$(x-1)+"":next:s=54272
  2. 20 forx=stos+23:pokex,0:next:pokes+6,240:pokes+8,80:pokes+12,6:pokes+24,15
  3. 30 a$="[206][183][205]   [206][183][205]   [206][183][205]   [206][183][205]   [206]":b$="[206]   [205][175][206]   [205][175][206]   [205][175][206]   [205][175][206]"
  4. 40 c$="[180]   [170][159] [146][154][180]   [170][159] [146][154][180]   [170][159] [146][154][180]   [170][159] [146][154][180]":goto720
  5. 50 cs=cs+1:ifcs=2thencs=0
  6. 60 poke53272,(peek(53272)and240)orb(cs):return
  7. 70 gosub50:js=(peek(56320)and15):ifjs=6thenpoke2041,193:goto120
  8. 80 ifjs=5thenpoke2041,193:goto140
  9. 90 ifjs=9thenpoke2041,194:goto160
  10. 100 ifjs=10thenpoke2041,194:goto180
  11. 110 goto250
  12. 120 ifpeek(b2-117)=32then250
  13. 130 b2=b2-117:t3=t3+24:t4=t4-24:goto200
  14. 140 ifpeek(b2+123)=32then250
  15. 150 b2=b2+123:t3=t3+24:t4=t4+24:goto200
  16. 160 ifpeek(b2+117)=32then250
  17. 170 b2=b2+117:t3=t3-24:t4=t4+24:goto200
  18. 180 ifpeek(b2-123)=32then250
  19. 190 b2=b2-123:t3=t3-24:t4=t4-24
  20. 200 pokev+2,t3:pokev+3,t4:ifb1=b2then390
  21. 210 ifpeek(b2)=96then250
  22. 220 w=129:du=30:hi=15:lo=210:gosub230:hi=12:lo=143:gosub230:sc=sc+25:goto240
  23. 230 pokes+1,hi:pokes,lo:pokes+4,w:forde=1todu:next:pokes+4,w-1:return
  24. 240 printd$(0)tab(5)sc:pokeb2,96:pokeb2+c,0:g2=g2+1:ifg2=g1then430
  25. 250 gosub50:forde=1to100:next:di=int(rnd(0)*4)+1:ondigoto260,280,300,320
  26. 260 ifpeek(b1-117)=32then70
  27. 270 b1=b1-117:t1=t1+24:t2=t2-24:goto340
  28. 280 ifpeek(b1+123)=32then70
  29. 290 b1=b1+123:t1=t1+24:t2=t2+24:goto340
  30. 300 ifpeek(b1+117)=32then70
  31. 310 b1=b1+117:t1=t1-24:t2=t2+24:goto340
  32. 320 ifpeek(b1-123)=32then70
  33. 330 b1=b1-123:t1=t1-24:t2=t2-24
  34. 340 pokev,t1:pokev+1,t2:ifb1=b2then390
  35. 350 ifpeek(b1)=88then70
  36. 360 pe=3:ifle>3thenpe=2
  37. 370 ifint(rnd(0)*pe)>0then70
  38. 380 g1=g1+1:pokeb1,88:pokeb1+c,7:goto70
  39. 390 k=1:w=33:du=400:hi=3:lo=35:gosub230:hi=5:lo=71:gosub230:hi=4:lo=48:gosub230
  40. 400 forde=1to1000:next:li=li-1:printd$(0)tab(37)li:pokev+21,0:ifli=0then630
  41. 410 b1=a1:b2=a2:t1=s1:t2=s2:t3=s3:t4=s4:pokev,t1:pokev+1,t2:pokev+2,t3
  42. 420 pokev+3,t4:poke2041,193:pokev+21,3:goto70
  43. 430 forde=1to1500:next:pokev+21,0:ifk=1then470
  44. 440 bo=le*100:sc=sc+bo:cs=0:gosub60:print"[147]":poke53281,2
  45. 450 printd$(12)tab(11)"bonus:"bo"tebos":forq=1tole:pokes+11,33:forde=1to250
  46. 460 next:pokes+11,32:next:forde=1to750:next:li=li+1:ifli>9thenli=9
  47. 470 k=0:le=le+1:cs=0:gosub60:print"[147]":poke53281,6:poke53280,0
  48. 480 printd$(12)tab(10)"prepare for level"le:forde=1to1000:next
  49. 490 pp=pp+1:ifpp=4thenpp=1
  50. 500 onppgoto510,530,550
  51. 510 n1=1:n2=18:a1=1773:a2=1275:s1=248:s2=184:s3=104:s4=88
  52. 520 t=9:p1=21:p2=23:p3=35:p4=23:p5=21:p6=37:goto570
  53. 530 n1=19:n2=31:a1=1770:a2=1278:s1=224:s2=184:s3=128:s4=88
  54. 540 t=12:p1=15:p2=17:p3=25:p4=17:p5=15:p6=27:goto570
  55. 550 n1=32:n2=39:a1=1767:a2=1281:s1=200:s2=184:s3=152:s4=88
  56. 560 t=15:p1=9:p2=11:p3=15:p4=11:p5=9:p6=17
  57. 570 print"[147][154]":poke53280,0:poke53281,0:printd$(4);:forx=1to3
  58. 580 printtab(t+1)left$(a$,p1):printtab(t)left$(b$,p2):printtab(t)left$(c$,p3)
  59. 590 printtab(t)mid$(a$,3,p4):printtab(t+1)mid$(b$,5,p5)
  60. 600 ifx<3thenprinttab(t+1)mid$(c$,5,p6):next
  61. 610 pokea(n1),96:forx=n1+1to n2:pokea(x),88:pokea(x)+c,7:next:g1=n2-n1:g2=0
  62. 620 print""d$(0)"tebos"sc;tab(32)"boots"li:goto410
  63. 630 forde=1to500:next
  64. 640 print"[147]":poke53281,5:cs=0:gosub60:printd$(9)tab(15)"game over"
  65. 650 printtab(12)"final score:"sc:ifsc>hsthenhs=sc
  66. 660 printtab(13)"high score:"hs
  67. 670 printd$(14)tab(4)"press fire button to play again"
  68. 680 fb=-((peek(56320)and16)=0):iffb=1then710
  69. 690 forde=1to100:next:printd$(14)tab(4)"                               "
  70. 700 forde=1to100:next:goto670
  71. 710 pp=0:sc=0:li=4:le=0:goto470
  72. 720 b(0)=4:b(1)=14:c=54272:v=53248:print"[147][154]":poke53280,7:poke53281,7
  73. 730 printd$(5)tab(6)"";:forx=1to29:print" ";:next:print
  74. 740 printtab(6)" ";:forx=1to27:print" ";:next:print"[154] "
  75. 750 printtab(6)"   [146]      [146]      [146]      [146]       [154] "
  76. 760 printtab(6)"   [146]        [146]    [146]      [146]    [146]   [154] "
  77. 770 printtab(6)"   [146]        [146]    [146]      [146]       [154] "
  78. 780 printtab(6)"       [146]    [146]    [146]      [146]       [154] "
  79. 790 printtab(6)"   [146]        [146]    [146]      [146]       [154] "
  80. 800 forx=1to2:printtab(6)" ";:forqq=1to27:print" ";:next:print"[154] ":next
  81. 810 printtab(6)"  [146]      [146]    [146]    [146]      [146]      [154] "
  82. 820 printtab(6)"  [146]    [146]  [146]    [146]      [146]      [146]    [154] "
  83. 830 printtab(6)"  [146]    [146]  [146]  [146]  [146]      [146]      [146]    [154] "
  84. 840 printtab(6)"  [146]    [146]  [146]   [146]       [146]      [146]    [154] "
  85. 850 printtab(6)"  [146]      [146]    [146]    [146]        [146]    [154] "
  86. 860 printtab(6)" ";:forx=1to27:print" ";:next:print"[154] "
  87. 870 printtab(6)"";:forx=1to29:print" ";:next
  88. 880 w=17:du=200:forx=1to22:readhi,lo:gosub230:next:goto900
  89. 890 poke53280,int(rnd(0)*16):return
  90. 900 forx=1to39:reada(x):next:gosub890:forx=12288to12350:reade:pokex,e:next
  91. 910 gosub890:forx=12352to12414:reade:pokex,e:next:gosub890:forx=12416to12478
  92. 920 reade:pokex,e:next:gosub890:poke56334,peek(56334)and254:poke1,peek(1)and251
  93. 930 q1=2:q2=2:gosub980:q1=5:q2=5:gosub980:q1=9:q2=9:gosub980:q1=15:q2=15
  94. 940 gosub980:q1=19:q2=20:gosub980:q1=32:q2=32:gosub980:q1=48:q2=57:gosub980
  95. 950 gosub980:q1=77:q2=78:gosub980:q1=96:q2=96:gosub980:q1=106:q2=106:gosub980
  96. 960 q1=111:q2=111:gosub980:q1=116:q2=116:gosub980:q1=119:q2=119:gosub980:q1=160
  97. 970 q2=160:gosub980:poke1,peek(1)or4:poke56334,peek(56334)or1:goto990
  98. 980 forx=q1*8toq2*8+7:poke14336+x,peek(53248+x):next:return
  99. 990 forx=88*8to88*8+7:reade:poke14336+x,e:next:poke2040,192:pokev+39,7
  100. 1000 pokev+40,15:pokev+28,2:pokev+37,9:pokev+38,7:goto710
  101. 1010 data18,209,14,24,15,210,18,209,14,24,15,210,16,195,12,143,10,143,12,143,11
  102. 1020 data48,10,143,10,143,9,104,10,143,12,143,14,24,11,48,9,104,7,233,9,104,8
  103. 1030 data97,1275,1281,1287,1293,1398,1404,1410,1515,1521,1527,1533,1638,1644
  104. 1040 data1650,1755,1761,1767,1773,1278,1284,1290,1401,1407,1518,1524,1530,1641
  105. 1050 data1647,1758,1764,1770,1281,1287,1404,1521,1527,1644,1761,1767,48,255,12
  106. 1060 data61,255,188,15,255,240,30,60,120,120,24,30,121,153,158,60,153,60,94,60
  107. 1070 data122,103,126,230,99,255,198,111,0,246,111,60,246,97,153,134,177,231,141
  108. 1080 data104,255,22,176,126,13,104,0,22,176,0,13,104,0,22,0,0,0,0,0,0,192,0,0
  109. 1090 data192,0,0,213,80,0,213,96,0,21,80,0,21,96,0,21,80,0,21,96,0,21,80,0,21
  110. 1100 data96,0,21,80,0,21,88,0,21,85,0,21,85,85,21,85,85,21,125,85,63,255,255,63
  111. 1110 data195,255,63,192,0,0,0,0,0,0,0,0,0,3,0,0,3,0,5,87,0,9,87,0,5,84,0,9,84,0
  112. 1120 data5,84,0,9,84,0,5,84,0,9,84,0,5,84,0,37,84,0,85,84,85,85,84,85,85,84,85
  113. 1130 data125,84,255,255,252,255,195,252,0,3,252,0,0,0,0,0,0,60,24,102,102,24,60
  114. 1140 data66,102
  115.